home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / NECLABEL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  5.5 KB  |  209 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '***************** NEC 8023 MULTI-LABEL PROGRAM ****************************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN           WRITTEN FOR SPECIALIZED USE OF NEC 8023A PRINTER              OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN  This program is designed for use with the NEC 8023 dot matrix printer. OPEN
  7. 24  'OPEN  Codes may be modified to fit other printers.  Also, print statements   OPEN
  8. 26  'OPEN  are written to LPT1:. If you are using LPT2, change the statement in   OPEN
  9. 28  'OPEN  line 110 so that "LPT1:" reads "LPT2:"  All or part of this program    OPEN
  10. 29  'OPEN  may be used without license or attribution.  An EPSON/GEMINI version   OPEN
  11. 30  'OPEN  is also included on this disk.                                         OPEN
  12. 31  'OPEN                                                                         OPEN
  13. 32  'OPEN  NOTE:NOTE:NOTE: Do not run this program on an EPSON/MX-80 printer. The OPEN
  14. 33  'OPEN  control codes can cause the printer to print "garbage" and LOCK UP.    OPEN
  15. 34  'OPEN                                                                         OPEN
  16. 35  'OPEN                    (c)  G I N A C O -- 1983         Ver 5.1/160/320     OPEN
  17. 36  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  18. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  19. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  20. 60  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  21. 100  CLOSE
  22. 110  OPEN "LPT1:" FOR OUTPUT AS #2
  23. 120  CLS:LOCATE 6,16
  24. 130  PRINT "THIS WILL PRINT LABELS ON STANDARD LABEL STOCK."
  25. 140  PRINT TAB( 10)"YOU MAY PRINT AT 10,12,OR 16.5 CPI BASED ON YOUR SELECTION."
  26. 150  PRINT
  27. 160  PRINT
  28. 170  PRINT TAB( 22)"SELECT PITCH AND <ENTER> CHOICE"
  29. 180  PRINT
  30. 190  PRINT TAB( 22)"PICA -- 10 CPS................1"
  31. 200  PRINT TAB( 22)"ELITE -- 12 CPS...............2"
  32. 210  PRINT TAB( 22)"CONDENSED --- 17.0 CPS........3"
  33. 220  PRINT TAB( 22)"FIRST LINE ONLY EXPANDED......4"
  34. 230  PRINT TAB( 22)"ALL LINES EXPANDED............5"
  35. 240  PRINT TAB( 22)"END PROGRAM...................6"
  36. 250  PRINT
  37. 260  PRINT
  38. 270  PRINT TAB( 22)"CHOOSE........";
  39. 280  INPUT X!
  40. 290  IF X! < 0 OR X! > 6 THEN 280  ELSE 300
  41. 300  ON X! GOTO 310,330,350,1150,1560,2000
  42. 310  PRINT #2, CHR$(27); CHR$(78); CHR$(27); CHR$(33);
  43. 320  GOTO 370
  44. 330  PRINT #2, CHR$(27); CHR$(69);
  45. 340  GOTO 370
  46. 350  PRINT #2, CHR$(27); CHR$(81);
  47. 360  GOTO 370
  48. 370  CLS
  49. 380  LOCATE 10,10
  50. 390  PRINT "WAS THAT PITCH SETTING OK "
  51. 400  GOSUB 1000
  52. 410  IF Q! = 1 THEN 430
  53. 420  IF Q! = 2 THEN 120
  54. 430  CLS
  55. 440  LOCATE 8,10
  56. 450  LINE INPUT "LINE 1:> ";L1$
  57. 460  LOCATE 9,10
  58. 470  LINE INPUT "LINE 2:> ";L2$
  59. 480  LOCATE 10,10
  60. 490  LINE INPUT "LINE 3:> ";L3$
  61. 500  LOCATE 11,10
  62. 510  LINE INPUT "LINE 4:> ";L4$
  63. 520  LOCATE 12,10
  64. 530  LINE INPUT "LINE 5:> ";L5$
  65. 540  PRINT
  66. 550  PRINT TAB( 10)"IS INPUT CORRECT ? "
  67. 560  GOSUB 1000
  68. 570  IF Q! = 1 THEN 590
  69. 580  IF Q! = 2 THEN 430
  70. 590  REM *************** LABEL PRINT ROUTINE ******************************
  71. 600  CLS
  72. 610  LOCATE 11,10
  73. 620  INPUT "HOW MANY LABELS ";X!
  74. 630  LOCATE 13,10
  75. 640  INPUT "LEFT PRINT MARGIN ";Z!
  76. 650  LOCATE 15,10
  77. 660  PRINT "ARE THESE SETTINGS CORRECT? "
  78. 670  GOSUB 1000
  79. 680  IF Q! = 1 THEN 700
  80. 690  IF Q! = 2 THEN 590
  81. 700  PRINT #2, CHR$(27); CHR$(76);"000";
  82. 710  CLS
  83. 720  LOCATE 10,10
  84. 730  INPUT "PRESS ENTER WHEN PRINTER READY. ";R!
  85. 740  ON R! GOTO 750
  86. 750  FOR NL! = 1 TO X!
  87. 760    PRINT #2, CHR$(13);
  88. 770    PRINT #2, TAB( Z!);L1$
  89. 780    PRINT #2, TAB( Z!);L2$
  90. 790    PRINT #2, TAB( Z!);L3$
  91. 800    PRINT #2, TAB( Z!);L4$
  92. 810    PRINT #2, TAB( Z!);L5$; CHR$(13);
  93. 820  NEXT NL!
  94. 830  :REMPRINT #2, CHR$(27); CHR$(76);"000";
  95. 840  CLS
  96. 850  :REM *********************  TERMINATION ROUTE  ********************
  97. 860  LOCATE 10,10
  98. 870  PRINT "REPRINT THIS LABEL "
  99. 880  GOSUB 1000
  100. 890  IF Q! = 1 THEN 910
  101. 900  IF Q! = 2 THEN 940
  102. 910  X! = 0
  103. 920  Z! = 0
  104. 930  GOTO 600
  105. 940  CLS
  106. 950  LOCATE 12,10
  107. 960  PRINT "ENTER ANOTHER LABEL "
  108. 970  GOSUB 1000
  109. 980  IF Q! = 1 THEN 120
  110. 990  IF Q! = 2 THEN 1130
  111. 1000  COLOR 0,7
  112. 1010  LOCATE 20,10
  113. 1020  PRINT " YES OR NO <Y/N> ? "
  114. 1030  COLOR 7,0
  115. 1032  A$=INKEY$:IF A$="" THEN 1032
  116. 1040  IF (LEFT$(A$,1)=CHR$(89) OR LEFT$(A$,1)=CHR$(121)) THEN Q! = 1 : RETURN
  117. 1050  IF (LEFT$(A$,1)=CHR$(78) OR LEFT$(A$,1)=CHR$(110)) THEN Q! = 2 : RETURN
  118. 1060  SOUND 400,4:GOTO 1032
  119. 1130  CLOSE
  120. 1140  END
  121. 1150  PRINT #2, CHR$(27); CHR$(78);
  122. 1160  CLS
  123. 1170  LOCATE 9,20
  124. 1180  COLOR 7,0
  125. 1190  PRINT "CHECK LABEL POSITION IN PRINTER"
  126. 1200  COLOR 7,0
  127. 1210  FOR I! = 1 TO 2000
  128. 1220  NEXT
  129. 1230  CLS
  130. 1240  LOCATE 8,20
  131. 1250  PRINT "THIS WILL PRINT FIRST LINE ONLY IN EXPANDED PRINT"
  132. 1260  LOCATE 11,20
  133. 1270  LINE INPUT "LINE ONE    ";A$(1)
  134. 1280  LOCATE 12,20
  135. 1290  LINE INPUT "LINE TWO    ";A$(2)
  136. 1300  LOCATE 13,20
  137. 1310  LINE INPUT "LINE THREE  ";A$(3)
  138. 1320  LOCATE 14,20
  139. 1330  LINE INPUT "LINE FOUR   ";A$(4)
  140. 1340  LOCATE 15,20
  141. 1350  LINE INPUT "LINE FIVE   ";A$(5)
  142. 1360  PRINT
  143. 1370  LOCATE 17,20
  144. 1380  PRINT "ENTER <1> IF OK <2> TO REDO ";
  145. 1390  INPUT X!
  146. 1400  ON X! GOTO 1410,1230
  147. 1410  CLS
  148. 1420  LOCATE 19,20
  149. 1430  INPUT "HOW MANY LABELS ";PN!
  150. 1440  FOR K! = 1 TO PN!
  151. 1450    PRINT #2, CHR$(27); CHR$(76);"000";
  152. 1460    PRINT #2, CHR$(27); CHR$(33); CHR$(14);A$(1); CHR$(15)
  153. 1470    FOR I! = 2 TO 5
  154. 1480      PRINT #2,A$(I!)
  155. 1490    NEXT
  156. 1500    PRINT #2, CHR$(13);
  157. 1510  NEXT K!
  158. 1520  LOCATE 19,20
  159. 1530  PRINT "TO REPRINT ENTER <1> FOR NEW <2> ";
  160. 1540  INPUT X!
  161. 1550  ON X! GOTO 1370,1980
  162. 1560  PRINT #2, CHR$(27); CHR$(76);"000";
  163. 1570  CLS
  164. 1580  LOCATE 9,20
  165. 1590  COLOR 7,0
  166. 1600  PRINT "CHECK LABEL POSITION IN PRINTER"
  167. 1610  COLOR 7,0
  168. 1620  FOR I! = 1 TO 2000
  169. 1630  NEXT
  170. 1640  CLS
  171. 1650  LOCATE 8,20
  172. 1660  PRINT "THIS WILL PRINT ALL LINES IN EXPANDED PRINT."
  173. 1670  LOCATE 12,20
  174. 1680  LINE INPUT "LINE ONE    ";A$(1)
  175. 1690  LOCATE 13,20
  176. 1700  LINE INPUT "LINE TWO    ";A$(2)
  177. 1710  LOCATE 14,20
  178. 1720  LINE INPUT "LINE THREE  ";A$(3)
  179. 1730  LOCATE 15,20
  180. 1740  LINE INPUT "LINE FOUR   ";A$(4)
  181. 1750  LOCATE 16,20
  182. 1760  LINE INPUT "LINE FIVE   ";A$(5)
  183. 1770  PRINT
  184. 1780  LOCATE 18,20
  185. 1790  PRINT "ENTER <1> IF OK <2> TO REDO ";
  186. 1800  INPUT X!
  187. 1810  ON X! GOTO 1820,1570
  188. 1820  LOCATE 20,20
  189. 1830  INPUT "HOW MANY LABELS ";PN!
  190. 1840  FOR K! = 1 TO PN!
  191. 1850    PRINT #2, CHR$(27); CHR$(76);"000";
  192. 1860    PRINT #2, CHR$(27); CHR$(33); CHR$(14);
  193. 1870    PRINT #2,A$(1)
  194. 1880    FOR I! = 2 TO 5
  195. 1890      PRINT #2,A$(I!)
  196. 1900    NEXT
  197. 1910    PRINT #2, CHR$(15)
  198. 1920  NEXT K!
  199. 1930  LOCATE 22,20
  200. 1940  PRINT "TO REPRINT ENTER <1> FOR NEW <2> ";
  201. 1950  INPUT X!
  202. 1960  CLS
  203. 1970  ON X! GOTO 1780,1980
  204. 1980  PRINT #2, CHR$(15); CHR$(27); CHR$(78);
  205. 1990  GOTO 100
  206. 2000  END
  207. 65000  REM ******************** SAVE ROUTINE ***********************************
  208. 65100  SAVE "B:NECLABEL.BAS"
  209.